﻿Public Class GebaeudeLabor
    Inherits ObjektGebaeude

    Public Sub New(ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Spielfeld As ObjektSpielfeld)
        MyBase.New("LABOR", neuSpieler, neuX, neuY, ObjektSpielfeld.Bodenschlacht)
        GebaeudeLaden()
        getBildID(Spielfeld)
    End Sub
    Public Sub New(ByVal neuSpieler As Integer, ByVal neuLeben As Integer, ByVal neuBesetzungszahl As Integer, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Feuerzahl As Integer, ByVal Spielfeld As ObjektSpielfeld)
        MyBase.New("LABOR", neuSpieler, neuLeben, neuBesetzungszahl, neuX, neuY, Feuerzahl, ObjektSpielfeld.Bodenschlacht)
        GebaeudeLaden()
        Bestzunge = neuBesetzungszahl
        getBildID(Spielfeld)
    End Sub

    Private Sub GebaeudeLaden()
        Gebaeudename = "Labor"
        getFonds = True
        Verfonds = True
        Deckung = 3
        Bestzunge = 20
        Schaden = 0
        Reichweite = -1
        Rechteck.Height = Hauptmenue.Feldbreite * 2
        Rechteck.Width = Hauptmenue.Feldbreite
        Angriff = Angriffe.Keiner
        Leben = -1
        Feuerbereite = -1
        RotationsZenturm = New Point(Hauptmenue.Feldbreite / 2, Hauptmenue.Feldbreite)
        WirdZu = ""
    End Sub
    Public Overrides Function GetBauliste() As String()
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.CommanderWars Then
            Return ObjektLadeklasse.GetBauliste("LABOR")
        Else
            Return MyBase.GetBauliste
        End If
    End Function
    Public Overrides Sub Feuer(ByVal X As Integer, ByVal Y As Integer)
        'Do Nothing
    End Sub
    Public Overrides Sub FeuerradiusAnzeigen()
        'Do Nothing
    End Sub
    Public Overrides Sub DOSpielFrame()
        'Do Nothing
    End Sub
    Public Overrides Function GetLandschaftsuntergrund() As String()
        Return New String() {"EBENE", "STRASSE", "SCHNEE", "WUESTE", "PFAD", "STRASSENFROST"}
    End Function
    Public Overrides Function GetAngriffsFelder() As System.Drawing.Point()
        Return New Point() {}
    End Function
End Class
